MacFormat 1995 March/macformat-022.iso/Shareware City/Graphics/Fractal Lab Kit 3.0/Maps/Sierpinski

Text File | 1994-09-09 | 266 b | 7 lines | [TEXT/ALFA]

: sierpinski  ( generates the Sierpinski Triangle)
    0.0 0.0 1.0 0.0 0.0 1.0 initial
    0.0 0.0 0.5 0.0 0.0 0.5 image  solve make 0.333 1 set
    0.5 0.0 1.0 0.0 0.5 0.5 image  solve make 0.333 2 set
    0.25 0.5 0.75 0.5 0.25 1.0 image  solve make 0.333 3 set
   ;